unit u_testing_form;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,u_Core;

type
  Tf_Testing_form = class(TForm)
  private
    Test:TTest;
    { private declarations }
  public
    { public declarations }
    constructor Create(TheOwner: TComponent;Test_ID:integer);overload;
  end;

var
  f_Testing_form: Tf_Testing_form;

implementation

{$R *.lfm}

constructor Tf_Testing_form.Create(TheOwner: TComponent;Test_ID:integer);
var
  Test_name:string;
  core_error:T_Core_errors;
begin
  inherited Create(TheOwner);
  Test:=TTest.Create(Test_ID);
  core_error:=Test.f_Get_name(Test_name);
  Self.Caption:=Test_name;
end;

end.

